subroutine print_del_event_table(nunit)
  use param
  use table_param,only:del_event_table
  use table_param,only:n_del_event_table
  implicit none

  integer,intent(in) :: nunit

  integer :: i,in1,in2,in3,pos1,pos2,width
  character(len=len_linebuf) :: str

  in1=1
  in2=2
  in3=3
  width=20

  call log_msg1(nunit,"")
  call log_msg1(nunit,"List of del_event_table")
  call log_msg1(nunit,"")

  pos1=0
  pos2=pos1+24
  write(str(pos1+1:pos2),'("n_del_event_table=",i6)') &
       n_del_event_table
  pos1=pos2
  call log_msg1_indent(nunit,in1,str(1:pos2))

  call drawline(nunit,in1,width)
  pos1=0

  pos2=pos1+10
  write(str(pos1+1:pos2),'("index",5x)')
  pos1=pos2

  pos2=pos1+10
  write(str(pos1+1:pos2),'("table_id",2x)')
  pos1=pos2
  call log_msg1_indent(nunit,in1,str(1:pos2))
  call drawline(nunit,in1,width)

  do i=1,n_del_event_table
     pos1=0

     pos2=pos1+10
     write(str(pos1+1:pos2),'("[",i8.8,"]")') i
     pos1=pos2

     pos2=pos1+10
     write(str(pos1+1:pos2),'(1x,i9)') del_event_table(i)
     pos1=pos2

     call log_msg1_indent(nunit,in1,str(1:pos2))
  end do

  call drawline(nunit,in1,width)

  return

end subroutine print_del_event_table
